COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CC	PROGRAM PELLIP
C00003 ENDMK
C⊗;
CC	PROGRAM PELLIP
	DIMENSION A(1),B(1),IBUF(5000)
	DATA A/0./,B/3.5/
	COMMON /FAC/JFAC,KFAC
CC	ACCEPT 2,JFAC,KFAC
CC 	IF(JFAC.EQ.0)JFAC=50
CC	IF(KFAC.EQ.0)KFAC=50
	JFAC=50 
	KFAC=50 
	CALL PLOTS(IBUF,5000,1)
  	CALL PLOT(15.,14.75,-3)
	A1=7.
	B1=4.
	CX=0.
CC	CY=3.5
CC 	CY=-2.
  	CY=0.
	ANG=90.
CC	ANG1=-3.
  	ANG1=-9.
  	DO 1 I=1,30
	CALL ELLIP2(A1,B1,A,B,ANG)
  	PAUSE
CC	ANG=90.-3.
	CALL DPYOUT(1)
CC	ANG1=90.
CC  	CALL ROTATE(A1,B1,1,0.,0.,ANG1)
  	CALL ROTATE(A,B,1,0.,0.,ANG1)
CC	ANG1=ANG1-1.
CC	ANG=ANG-3.
  	ANG=ANG-9.
 1	CONTINUE
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
	STOP
	END